home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1994 March
/
1994-03b.d64
/
ssdevice swap.pp
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
512b
|
9 lines
10 rem speedscript device swap
20 fori=52736toi+55:readx:pokei,x:z=z+x:next:ifz-5475thenprint"data error":stop
30 print"[147]l[207]"chr$(34)"speedscript*"chr$(34)",8,1"
40 print"poke2481,197:poke2854,0:poke2855,206:run";
50 fori=631to640:pokei,13:next:poke198,10:end
60 data44,8,9,201,14,208,46,32,78,10,174,1,206,236,235,18,208,3,174,2,206
70 data142,235,18,142,44,19,142,154,20,142,241,22,142,79,23,142,223,24,142
80 data227,26,142,91,27,142,161,27,169,0,32,1,30,76,105,10